home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Lazy Date / background_3302.txt < prev    next >
Encoding:
Text File  |  1988-01-19  |  3.0 KB  |  145 lines
  1. -- background: 3302 from stack: in
  2. -- bmap block id: 3448
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12.  
  13.  
  14. -- part 8 (button)
  15. -- low flags: 00
  16. -- high flags: 0000
  17. -- rect: left=227 top=301 right=326 bottom=254
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 1014 / 1014
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Prev
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual effect scroll left fast
  29.   go to previous card
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 9 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=269 top=301 right=326 bottom=296
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1013 / 1013
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Next
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect scroll right fast
  49.   go to next card
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 10 (button)
  55. -- low flags: 00
  56. -- high flags: 0004
  57. -- rect: left=17 top=297 right=326 bottom=49
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 21700 / 21700
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Home
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect iris open
  69.   go Home
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 11 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=452 top=299 right=327 bottom=489
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 1012 / 1012
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Return
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect iris close
  89.   pop card
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 12 (field)
  95. -- low flags: 00
  96. -- high flags: 4007
  97. -- rect: left=33 top=73 right=293 bottom=476
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Text
  106.  
  107.  
  108. -- part 14 (field)
  109. -- low flags: 00
  110. -- high flags: 0002
  111. -- rect: left=242 top=56 right=73 bottom=476
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Lazy Date
  120. ----- HyperTalk script -----
  121. on closefield
  122.   --Script by Robert Wright
  123.   --Compuserve 74776,374
  124.   do "put "&the target&" into lazy"
  125.  
  126.   if chartonum of char 3 of lazy>57 then
  127.     --this handler for 12jan type formats
  128.     get the abbr date
  129.     put char 3 to 5 of lazy && char 1 to 2 of lazy into item 2 of it
  130.     if char 6 to 7 of lazy is not empty then put "19"&char 6 to 7 of lazy into item 3 of it
  131.   end if
  132.  
  133.   if chartonum of char 2 of lazy>57 then
  134.     --this handler of 1jan type format
  135.     get the abbr date
  136.     put char 2 to 4 of lazy && char 1 of lazy into item 2 of it
  137.     if char 5 to 6 of lazy is not empty then put "19"&char 5 to 6 of lazy into item 3 of it
  138.   end if
  139.  
  140.   convert it to long date
  141.   do "put it into "& the target
  142.  
  143. end closefield
  144.  
  145.